
  10 clear ;V=0;W=0;FC=7;BC=0;for A=1to 8;B=15-(Amul 7);C=-Amul 7div 2;for D=1to A;box C,B,6,6,1;C=C+7;next D;next A
  20 A=-46;box A,-32,16,22,1;box A,-19,16,1,1;box A,-18,14,1,1;box A,-17,10,1,1;box A,-16,4,1,1
  30 %(18912)=-32256;for A=0to 27;%(18822+(Amul 40))=@(A);next A
  40 for M=18822to 18814step -2;%(M+1080)=-24536;for A=5to 1step -1;%(M+840+(Amul 40))=8200;next A
  50 %(M+1080)=-32758;for A=5to 1step -1;%(M+840+(Amul 40))=-32766;next A
  60 for A=Mto M+1080step 40;%(A-2)=%(A);%(A)=0;next A;next M
  70 box -46,-18,16,5,2;box -55,-14,1,16,1;box -56,-14,1,14,1;box -57,-14,1,10,1;box -58,-14,1,4,1
  80 box -46,-16,6,10,1;box -43,-15,1,1,1;box -45,-14,1,1,2;box -46,-13,3,1,2;box -44,-19,3,1,2;box -44,-20,1,1,2
  90 box -43,-17,3,1,2
 100 A=rnd (8);B=15-(Amul 7);C=(-Amul 7div 2)+(rnd (A)mul 7-7);if PX(C,B)box C,B,2,2,2;goto 120
 110 goto 100
 120 X=0;XY=-5167
 130 X=X+1;if TR(1)Q=-KN(1)div 3;for R=1to 2;line C,Q,3;XY=-5167;for S=1to 200;next S;next R;goto 160
 140 if X=10goto 170
 150 goto 130
 160 if Q<B+4if Q>B-4box C,B,6,6,2;W=W+1;gosub 190;goto 100
 170 box 35,-29,1,7,2
 180 XY=-6621;for R=1to 2;line C,B,3;XY=-6621;for S=1to 200;next S;next R;box 35,-29,1,7,1;box C,B,6,6,2;V=V+1;gosub 190;goto 100
 190 CY=40;print #6,W,#15,V;if W+V=36goto 210
 200 return 
 210 if V>Wprint "SQUEEZED OUT!";goto 240
 220 if W>Vprint "WHIPPED BY WHIPPLE!";goto 240
 230 print "A TIE!"
 240 print "PULL TR(1) to run 
 250 if TR(1)run 
 260 goto 250
:return ;run 
>